(frame-initialize): Handle reverseVideo resource.

diff --git a/lisp/frame.el b/lisp/frame.el
index 98f08cba16bbd186bf6d1410b3e26a94869368e7..8faa376569f3f2bec0a63d60a60134e064a54d35 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -100,7 +100,9 @@ These supercede the values given in `default-frame-alist'.")
                          (new-frame initial-frame-alist)))
              ;; Handle `reverse' as a parameter.
              (if (cdr (or (assq 'reverse initial-frame-alist)
-                          (assq 'reverse default-frame-alist)))
+                          (assq 'reverse default-frame-alist)
+                          (cons nil
+                                (x-get-resource "reverseVideo" "Reversevideo"))))
                  (let ((params (frame-parameters frame-initial-frame)))
                    (modify-frame-parameters
                     frame-initial-frame